﻿#!/usr/bin/perl
use LWP::UserAgent;
use HTTP::Request::Common qw(POST);

$UA   = LWP::UserAgent->new();
$page = "http://www.example.com/upload.aspx";
$EICAR = 'X5O!P%@AP[4\PZX54(P^)7CC)7}$EICAR-STANDARD-ANTIVIRUS-TEST-FILE!$H+H*';

$req = HTTP::Request::Common::POST( "$page",
   Content_Type => 'form-data',
   Content => [ myFile => [ undef, "Virus.jpg",
                            "Content-Type" => "image/jpeg",
                            "Content"      => $EICAR,
                          ],
                Submit => 'Prześlij plik',
              ]
   );

$resp = $UA->request($req);
